听说你还不会画动图

正如我在「知识星球」里说的，《邪恶的曲线》和《emojifont新功能（有视频哦）》两篇文章中我都有教过如何制作动图。

今天借这个问题，再演示一遍，因为Thomas Lin有新动作，他重写了gganimate包，提出了一套用于做动图的语法，以前gganimate包是加入frame这个aes mapping，现在废掉了，加入了新动词，不过现在还在开发中。目前你需要装github版本的ggplot2, tweenr, transfomr以及thomasp85/gganimate，所以并不推荐大家用，大家还是等以后发布吧，我现在是先跟进给大家演示一下，看看以后我们做动图到底有多爽，而且用ggplot2你天然有好多好东西，比如这里用到的分面，语言是苍白的，以代码为证，以图为证。

library(gapminder)
library(ggplot2)
library(gganimate)
start_pause <- min(gapminder$year)
end_pause <- max(gapminder$year)
p <- ggplot(gapminder, aes(gdpPercap, lifeExp, size = pop, colour = country)) +
  geom_point(alpha = 0.7) +
  scale_colour_manual(values = country_colors) +
  scale_size(range = c(2, 12)) +
  scale_x_log10() +
  facet_wrap(~continent) +
  theme(legend.position = 'none') +
  labs(title = 'Year: {frame_time}', x = 'GDP per capita', y = 'life expectancy') +
  transition_time(year) +
  ease_aes('linear')
magick::image_write(animate(p, 100, 10), "gapminder.gif")